  10 .{-48}{-128}{-128}{-103}{-68}{-128}{-128}{-103}{-78}{-128}{-128}{-103}{-84}{-128}{-128}{-103}{-86}{-128}{-8}{-103}{-89}{-128}{-27}{-103}{-86}{-128}{-27}{-103}{-84}{-128}{-8}{-103}{-78}{-128}{-27}{-78}{-48}{-128}!{-78}{-61}{-128}{-48}{-78}{-68}{-128}{-8}{-103}{-68}{-128}{-27}{-78}{-68}{-128}{-8}{-103}{-68}{-128}{-27}{-78}{-75}{-128}!{-116}{-78}{-128}!{-116}{-75}{-128}!{-116}{-68}{-128}!{-116}{-61}{-128}{-48}{-78}{-68}{-128}{-8}{-103}{-68}{-128}{-27}{-78}{-68}{-128}{-8}{-103}{-68}{-128}{-27}{-78}{-1}
  20 .{-61}{-128}!{-116}{-68}{-128}!{-116}{-61}{-128}!{-116}{-48}{-128}!{-116}{-38}{-128}{-21}{-78}{-48}{-128}{-8}{-103}{-48}{-128}{-27}{-78}{-48}{-128}{-8}{-103}{-48}{-128}{-27}{-78}{-128}{-48}!{-103}{-68}{-128}!{-103}{-78}{-128}{-48}{-103}{-84}{-128}{-48}{-103}{-86}{-128}{-8}{-103}{-89}{-128}{-27}{-103}{-86}{-128}{-27}{-103}{-84}{-128}{-8}{-103}{-78}{-128}{-27}{-78}{-48}{-128}!{-78}{-61}{-128}{-48}{-78}{-68}{-128}{-8}{-103}{-68}{-128}{-27}{-78}{-68}{-128}{-8}{-103}{-128}{-128}{-27}{-78}{-1}
  30 .{-75}{-128}!{-116}{-78}{-128}!{-116}{-75}{-128}!{-116}{-68}{-128}!{-116}{-61}{-128}{-48}{-78}{-68}{-128}{-8}{-103}{-68}{-128}{-27}{-78}{-68}{-128}{-8}{-103}{-128}{-128}{-27}{-78}{-61}{-128}!{-116}{-68}{-128}!{-116}{-61}{-128}!{-116}{-48}{-128}!{-116}{-38}{-128}{-21}{-78}{-48}{-128}{-8}{-103}{-48}{-128}{-27}{-78}{-48}{-128}{-8}{-103}{-48}{-128}{-27}{-78}{-48}{-128}!{-78}{-128}{-128}{-21}{-78}{-99}{-27}{25}{-103}{-104}{-27}{25}{-78}{-99}{-27}{25}{-103}{-91}{-128}{-128}{-78}{-1}
  40 .{-84}{-52}{-21}{-103}{-89}{-52}{-21}{-103}{-91}{-52}{-21}{-103}{-93}{-52}{-21}{-103}{-95}{-38}!{-103}{-102}{-38}!{-78}{-95}{-38}!{-103}{-89}{-128}{-128}{-78}{-78}{-48}{-8}{-103}{-84}{-48}{-8}{-103}{-86}{-48}{-8}{-103}{-89}{-48}{-8}{-103}{-91}{-27}5{-103}{-99}{-27}5{-78}{-91}{-27}5{-103}{-84}{-128}{-128}{-78}{-75}{-52}{9}{-103}{-78}{-52}{9}{-103}{-84}{-52}{9}{-103}{-86}{-52}{9}{-103}{-89}{-48}{-27}{-103}{-86}{-48}{-27}{-103}{-89}{-48}{-27}{-103}{-91}{-48}{-27}{-103}{-1}
  50 .{-95}{-128}{-128}{-78}{-48}{-27}{-95}{-103}{-48}{-27}{-93}{-103}{-48}{-27}{-95}{-103}{-48}{-27}{-97}{-103}{-99}{-27}{25}{-103}{-104}{-27}{25}{-78}{-99}{-27}{25}{-103}{-91}{-128}{-128}{-78}{-84}{-57}{-21}{-103}{-89}{-52}{-21}{-103}{-91}{-52}{-21}{-103}{-93}{-52}{-21}{-103}{-95}{-38}!{-103}{-102}{-38}!{-78}{-95}{-38}!{-103}{-89}{-128}{-128}{-78}{-78}{-48}{-8}{-103}{-84}{-48}{-8}{-103}{-86}{-48}{-8}{-103}{-89}{-48}{-8}{-103}{-91}{-27}5{-103}{-99}{-27}5{-78}{-91}{-27}5{-103}{-1}
  60 .{-84}{-128}{-128}{-78}{-75}{-52}{9}{-78}{-95}{-52}{9}{-103}{-91}{-52}{9}{-103}{-89}{-128}{-21}{-103}{-89}{-68}{-57}{-78}{-89}{-57}{-68}{-78}{-57}{-48}{-89}{-78}{-65}{-48}{-78}{-103}{-65}{-48}{-84}{-103}{-86}{-128}{-128}{-127}{-89}{-128}{-8}{-104}{-89}{-128}{-27}{-78}{-89}{-128}{-8}{-103}{-128}{-128}{-27}{-78}{-48}{-128}!{-78}{-128}{-128}{-21}{-78}{-68}{-128}{-128}{-103}{-128}{-68}{-8}{-103}{-128}{-68}{-27}{-78}{-128}{-68}{-8}{-103}{-128}{-68}{-27}{-78}{-128}{-68}!{-78}{-128}{-68}{-48}{-78}{-1}
  70 .{-68}{-128}{-8}{-103}{-65}{-128}{-27}{-103}{-68}{-128}{-27}{-103}{-75}{-128}{-8}{-103}{-78}{-128}{-27}{-103}{-89}{-128}{-27}{-103}{-89}{-128}!{-103}{-78}{-128}!{-103}{-84}{-128}{-48}{-78}{-68}{-128}{-8}{-103}{-68}{-128}{-27}{-78}{-68}{-128}{-8}{-103}{-68}{-128}{-27}{-78}{-68}{-128}!{-78}{-68}{-128}{-48}{-78}{-99}{-128}{-8}{-103}{-89}{-128}{-27}{-103}{-84}{-128}{-27}{-103}{-89}{-128}{-8}{-103}{-84}{-128}{-128}{-103}{-78}{-128}{-27}{-78}{-84}{-128}!{-103}{-78}{-128}!{-103}{-84}{-128}{-48}{-78}{-1}
  80 .{-68}{-128}{-8}{-103}{-68}{-128}{-27}{-78}{-75}{-128}{-8}{-103}{-78}{-128}{-27}{-78}{-48}{-128}!{-78}{-48}{-128}{-21}{-78}{-99}{-128}{-8}{-103}{-89}{-128}{-27}{-103}{-84}{-128}{-27}{-103}{-89}{-128}{-8}{-103}{-84}{-128}{-128}{-103}{-78}{-128}{-27}{-78}{-84}{-128}!{-103}{-89}{-128}!{-103}{-84}{-128}{-48}{-78}{-78}{-128}{-8}{-103}{-68}{-128}{-27}{-78}{-128}{-128}{-8}{-103}{-68}{-128}{-27}{-78}{-128}{-68}!{-78}{-128}{-68}{-48}{-78}{-68}{-128}{-8}{-103}{-68}{-128}{-27}{-78}{-68}{-128}{-8}{-103}{-1}
  90 .{-128}{-68}{-27}{-103}{-78}{-128}{-27}{-103}{-78}{-128}!{-103}{-68}{-128}!{-103}{-75}{-128}{-48}{-78}{-128}{-128}{-8}{-103}{-128}{-128}{-27}{-116}{-68}{-128}{-27}{-90}{-68}{-128}{-8}{-103}{-68}{-128}{-27}{-78}{-128}{-68}!{-78}{-75}{-128}{-48}{-78}{-68}{-128}{-8}{-103}{-68}{-128}{-27}{-103}{-65}{-128}{-8}{-103}{-68}{-128}{-27}{-103}{-78}{-128}{-27}{-103}{-78}{-128}!{-103}{-68}{-128}!{-103}{-75}{-128}{-48}{-78}{-68}{-128}{-8}{-103}{-68}{-128}{-27}{-78}{-68}{-128}{-8}{-103}{-89}{-128}{-27}{-78}{-1}
  91 .{-89}{-128}!{-78}{-89}{-128}{-48}{-78}{-84}{-128}{-8}{-103}{-84}{-128}{-27}{-78}{-84}{-128}{-8}{-103}{-84}{-128}{-27}{-78}{-128}{-84}!{-78}{-78}{-128}{-48}{-78}{-75}{-128}{-8}{-103}{-68}{-128}{-27}{-103}{-128}{-68}{-27}{-103}{-128}{-68}{-8}{-103}{-128}{-68}{-27}{-78}{-68}{-128}!{-78}{-48}{-128}{-21}{-78}{-84}{-128}{-8}{-103}{-84}{-128}{-27}{-78}{-84}{-128}{-8}{-103}{-84}{-128}{-27}{-78}{-128}{-84}!{-78}{-95}{-128}{-48}{-103}{-89}{-128}{-48}{-103}{-78}{-128}{-8}{-103}{-68}{-128}{-27}{-78}{-1}
  92 .{-68}{-128}{-8}{-103}{-68}{-128}{-27}{-78}{-1}0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
 100 clear ;T=1
 105 NT=0;&(16)=49;&(22)=136;&(21)=15;for A=-24574to -23160step 101
 110 for C=Ato A+92step 4;&(17)=%(C)div 256+127;&(18)=%(C+1)div 256+127;&(19)=%(C+2)div 256+127;for D=1to (%(C+3)div 256+127)mul T;next D
 130 if C>-23562goto 150
 140 next C;next A
 150 &(21)=0;&(22)=0;&(16)=0;&(17)=0;&(18)=0;&(19)=0
 160 A=KP;goto 100
:return ;clear ;goto 100